maximum Interface

public interface maximum

Module Procedures

private subroutine maximum_only(a, mx)

Subroutine to calculate the maximum of a real array

Arguments

Type IntentOptional Attributes Name
real(kind=wp), dimension(:) :: a
real(kind=wp) :: mx

private subroutine maximum_position(a, mx, p)

Subroutine to find the position of the maximum value of a real array

Arguments

Type IntentOptional Attributes Name
real(kind=wp), dimension(:) :: a

A real array

real(kind=wp) :: mx

A real value with the maximum

integer :: p

An integer value with the position of the maximum